home *** CD-ROM | disk | FTP | other *** search
/ Ham Radio 2000 #2 / Ham Radio 2000 - Volume 2.iso / HAMV2 / MISC / HCAL-27 / FOLDIPOL.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1997-03-15  |  3.8 KB  |  135 lines
  1. 10  'FOLDIPOL - Folded Dipole - 300- Twin-Lead - 23 APR 96  rev.15 MAR 97
  2. 20  REM - Ref: The ARRL ANTENNA HANDBOOK, 14th edition, page 13-9
  3. 30  IF EX$=""THEN EX$="EXIT"
  4. 40  CLS:KEY OFF
  5. 50  COLOR 7,0,1
  6. 60  UL$=STRING$(80,205)
  7. 70  U$="####.###"
  8. 80  V=0.82   'velocity factor of 300- Twin-Lead
  9. 90  PI=3.14159
  10. 100  DIM C(73)
  11. 110  FOR Z=0 TO 73
  12. 120  READ C(Z)    'mica capacitors
  13. 130  NEXT Z
  14. 140  '
  15. 150  '.....start
  16. 160  CLS
  17. 170  COLOR 15,2
  18. 180  PRINT " FOLDED DIPOLE - 300 ohm Twin-Lead";
  19. 190  PRINT TAB(57);"by George Murphy VE3ERP ";
  20. 200  COLOR 1,0:PRINT STRING$(80,223);
  21. 210  COLOR 7,0
  22. 220  LOCATE 3:X=7 :GOSUB 930
  23. 230  LOCATE 3:X=44:GOSUB 760
  24. 240  PRINT UL$;
  25. 250  '
  26. 260  '.....standard antenna note
  27. 270  OPEN"I",1,"\data\docfiles\antenna.doc"
  28. 280  IF EOF(1)THEN 300
  29. 290  INPUT#1,NOTE$:PRINT "   ";NOTE$:GOTO 280
  30. 300  CLOSE
  31. 310  PRINT
  32. 320  COLOR 0,7:LOCATE CSRLIN,24:PRINT " Press 1 to continue or 0 to EXIT "
  33. 330  COLOR 7,0
  34. 340  Z$=INKEY$:IF Z$="" THEN 340
  35. 350  IF Z$="0"THEN CLS:RUN EX$
  36. 360  IF Z$="1"THEN 390
  37. 370  GOTO 340
  38. 380  '
  39. 390  '.....data input
  40. 400  VIEW PRINT 16 TO 24:CLS:VIEW PRINT:LOCATE 16
  41. 410  INPUT " ENTER: Frequency of operation..................(MHz)";F
  42. 420  LOCATE CSRLIN-1:PRINT "       ";
  43. 430  LOCATE CSRLIN,49:PRINT "...<0x9F!>=";USING U$;F;
  44. 440  PRINT " Mhz (";USING "###";300/F;:PRINT "m.)"
  45. 450  '
  46. 460  PRINT "        Velocity factor of 300- twin-lead..........V=";USING U$;V
  47. 470  '
  48. 480  A=468/F   'length in feet
  49. 490  PRINT "        Length of 300- folded dipole...............A=";
  50. 500  PRINT USING U$;A*0.3048;:PRINT " m.=";USING U$;A;:PRINT " ft."
  51. 510  '
  52. 520  B=V*A
  53. 530  PRINT "        Shorting connections (A x V)...............B=";
  54. 540  PRINT USING U$;B*0.3048;:PRINT " m.=";USING U$;B;:PRINT " ft."
  55. 550  '
  56. 560  C=A/9.578
  57. 570  PRINT "        Length of matching section.................C=";
  58. 580  PRINT USING U$;C*0.3048;:PRINT " m.=";USING U$;C;:PRINT " ft."
  59. 590  PRINT UL$;
  60. 600  '
  61. 610  L=A/3.3407
  62. 620  PRINT "        300- twin-lead stub length................Ls=";
  63. 630  PRINT USING U$;L*0.3048;:PRINT " m.=";USING U$;L;:PRINT " ft."
  64. 640  '
  65. 650  PRINT "                        - O R -"
  66. 660  C1=A/0.4328
  67. 670  FOR Z=1 TO 73
  68. 680   MID=(C(Z)+C(Z-1))/2
  69. 690   IF C1>=C(Z-1)AND C1<MID THEN D=C(Z-1):GOTO 720
  70. 700   IF C1>=MID AND C1<C(Z) THEN D=C(Z):GOTO 720
  71. 710  NEXT Z
  72. 720  PRINT "        Capacitor reactive element................C1=";
  73. 730  PRINT USING U$;C1;:PRINT " pF (use";D;"pF)";
  74. 740  '
  75. 750  GOTO 1100
  76. 760  '.....diagram 1
  77. 770  COLOR 0,7
  78. 780  LOCATE ,X:PRINT "        CAPACITOR MATCH        "
  79. 790  LOCATE ,X:PRINT "  CALLDEFSNGSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUND A SOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDDEFDBLCALL  "
  80. 800  LOCATE ,X:PRINT "  CALL   CALLDEFSNGSOUNDSOUNDSOUNDSOUNDSOUNDSOUND B SOUNDSOUNDSOUNDSOUNDSOUNDSOUNDDEFDBLCALL   CALL  "
  81. 810  LOCATE ,X:PRINT "-/BSAVESOUNDSOUNDSOUNDBSAVESOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDBSAVESOUNDSOUNDSOUNDBSAVE/-"
  82. 820  LOCATE ,X:PRINT "  CLSSOUNDSOUNDSOUNDMOTORSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDBSAVESOUND/SOUNDBSAVESOUNDSOUNDSOUNDSOUNDSOUNDSOUNDMOTORSOUNDSOUNDSOUND'  "
  83. 830  LOCATE ,X:PRINT "   300 - any CALL   CALL short'      "
  84. 840  LOCATE ,X:PRINT "   lengthSOUNDSOUNDSOUND>CALL   CALL             "
  85. 850  LOCATE ,X:PRINT "          VARPTRSOUNDDEFDBLBLOADSOUNDUSINGSOUND<0xB4!>C1 silver    "
  86. 860  LOCATE ,X:PRINT "          C  CALL   CALL   mica      "
  87. 870  LOCATE ,X:PRINT "          CLSSOUNDDEFDBLCLSSOUNDCOLOR CALL             "
  88. 880  LOCATE ,X:PRINT "               PRESETSOUND'             "
  89. 890  LOCATE ,X:PRINT "               OPENDEFSNGSOUNDSOUND 50 - coax  "
  90. 900  COLOR 7,0
  91. 910  RETURN
  92. 920  '
  93. 930  '.....diagram 2
  94. 940  COLOR 0,7
  95. 950  LOCATE ,X:PRINT "           STUB MATCH          "
  96. 960  LOCATE ,X:PRINT "  CALLDEFSNGSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUND A SOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDDEFDBLCALL  "
  97. 970  LOCATE ,X:PRINT "  CALL   CALLDEFSNGSOUNDSOUNDSOUNDSOUNDSOUNDSOUND B SOUNDSOUNDSOUNDSOUNDSOUNDSOUNDDEFDBLCALL   CALL  "
  98. 980  LOCATE ,X:PRINT "-/BSAVESOUNDSOUNDSOUNDBSAVESOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDBSAVESOUNDSOUNDSOUNDBSAVE/-"
  99. 990  LOCATE ,X:PRINT "  CLSSOUNDSOUNDSOUNDMOTORSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDBSAVESOUND/SOUNDBSAVESOUNDSOUNDSOUNDSOUNDSOUNDSOUNDMOTORSOUNDSOUNDSOUND'  "
  100. 1000  LOCATE ,X:PRINT "   300 - any CALL   CALL short'      "
  101. 1010  LOCATE ,X:PRINT "   lengthSOUNDSOUNDSOUND>CALL   CALL             "
  102. 1020  LOCATE ,X:PRINT "          VARPTRSOUNDDEFDBLBLOADCOLOR VARPTR<0xB4!>             "
  103. 1030  LOCATE ,X:PRINT "          C  CALLCALL CALL<SOUND open stub  "
  104. 1040  LOCATE ,X:PRINT "          CLSSOUNDDEFDBLCLSSOUNDCOLOR CALL  Ls long    "
  105. 1050  LOCATE ,X:PRINT "               PRESETSOUND'             "
  106. 1060  LOCATE ,X:PRINT "               OPENDEFSNGSOUNDSOUND 50 - coax  "
  107. 1070  COLOR 7,0
  108. 1080  RETURN
  109. 1090  '
  110. 1100  '.....end
  111. 1110  GOSUB 1220
  112. 1120  GOTO 150
  113. 1130  END
  114. 1140  '
  115. 1150  '.....silver mica capacitors (pF)
  116. 1160  DATA 0,1,2,3,5,7,10,12,15,18,20,22,24,27,30,33,36,39,43,47,50,51,56,62,68
  117. 1170  DATA 75,82,91,100,110,120,150,160,180,200,220,240,250,270,330,360,390
  118. 1180  DATA 430,470,500,510,560,620,680,750,820,910,1000,1100,1200,1500,1600,1800
  119. 1190  DATA 2000,2200,2400,2700,3000,3300,3900,4300,4700,5000,5100,5600,6200
  120. 1200  DATA 6800,7500,8200
  121. 1210  '
  122. 1220  'HARDCOPY
  123. 1230  GOSUB 1340:LOCATE 25,2:COLOR 14,6
  124. 1240  PRINT " Press 1 to print screen, 2 to print screen & ";
  125. 1250  PRINT "advance paper, or 3 to continue.";:COLOR 7,0
  126. 1260  Z$=INKEY$:IF Z$="3"THEN GOSUB 1340:RETURN
  127. 1270  IF Z$="1"OR Z$="2"THEN GOSUB 1340:GOTO 1290
  128. 1280  GOTO 1260
  129. 1290  FOR QX=1 TO 24:FOR QY=1 TO 80
  130. 1300  LPRINT CHR$(SCREEN(QX,QY));
  131. 1310  NEXT QY:NEXT QX
  132. 1320  IF Z$="2"THEN LPRINT CHR$(12)
  133. 1330  GOTO 1230
  134. 1340  LOCATE 25,1:PRINT STRING$(80,32);:RETURN
  135.